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**F [LE**1D**SNDBAD 


! 
3 NN NN DDDDDDDD BBBGBBBBB AAAAAA DDDDDDDD 


SSSSSS : 
SSSSSS NN NN DDDDDDDD BBBBBBBB ABAAAS DDDDDDDD : 
SS NN NN DD DD 6B BB AA AA 0D DD : 
SS NN N DD DD 6B BB AA AA 0D DD ‘ 
$s NNNN NN DD DD B AA AA 0D DD : 
$s NNNN NN DD DD 68 BB AA AA 0D DD ‘ 
SSSSSS NN NN NN DD DD AA AA 0D DD ‘ 
SSSSSS NN NN NN DD DD 68888888 AA AA DD DD : 
SS NN NNN DD DD 8B BB AAAAAAAAAA 0D DD : 
SS NN NNNN DD DD 6B BB AAAAAAAAAA DD DD ‘ 
SS NN NN DD DD 6B BB AA AA DD DD —* 
SS NN NN DD DD 6B BB AA AA 0D DD sees ‘ 
SSSSSSSS NN NN DDDDDDDD BBBBBBBB AA AA DDDDDDDD — ‘ 
SSSSSSSS NN NN DDDDDDDD BBBBBBBB AA AA DDDDDDDD eons ‘ 
LL —111111 SSSSSSSS : 
LL 111111 SSSSSSSS : 
LL I] SS ; 
LL I] SS ‘ 
LL I] SS ‘ 
LL I] ss ‘ 
LL I] SSSSSS ; 
LL I] SSSSSS : 
LL I] SS : 
LL I] SS : 
LL I] $s ‘ 
LL I] 58 
LLLLLLLLLL —1111141 SSSSSSSS 
LLLLLLLLLL 111111 SSSSSSSS 
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“1984 01:15:57 VAX=11_BLiss=32_v4.0-742 p 
B=1984 12:30:48 — DISKSVMSMASTERSEF TIX. SRCISNDBAD.832:1°°" (1 


’ STARLET operating system, including privileged system services 
and internal exec routines. 


arenes 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 26-May-1978 14:50 


; 1 4d MODULE SNDBAD ( * GUAGE ' 32), 

i) os RSS BLBBR 

: 4 4 :e 

3 5 5 BEGIN 

; — 

3 
8 0 3 EIE 
$ iy 09 1 !* * 
; 170 O10 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
11 01 1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: \¢ Og ! re ALL RIGHTS RESERVED. . 
J | 014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
J 99 015 1 !'* ONLY IN ACCORDANCE WITH THE {ERAS OF SUCH LICENSE AND WITH THE * 
ame Bote 1 '* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 17 001 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 3 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 $84 : ie TRANSFERRED. * 
3 it ® 
; 1 0031 1! He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ; 00 § 1 !e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; i 0034 : i? CORPORATION. * 
g '« * 
3 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 6 0026 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
RB yi 
2 ‘® * 
: : 0099 1 Lee REAR AERA AAA AAA AAA AAA AEA AAA ARATE 
3 0 0030 1 

3 1 0031 1 !++¢ 

3 3 1! 

; 8 1 ! FACILITY: FIIACP Structure Level 2 

3 4 034 1! 

3 $2 0035 1 | ABSTRACT: 

3 6 0036 1 

; iv 0037 1 This routine sends a message to the bad block analysis program to 

3 Hs 0038 1 deal with a file that is marked bad. 

3 9 0039 1 

; 460 8 1 | ENVIRONMENT: 

: 1 04 1 
3 2 0042 1 | 
3 3 0043 1 
3 4 044 1 

; 5 045 1 

3 46 046 1 

: 7 047 1 

3 8 48 1 

: 9 1 

: 0 1 

: 1 1 

; ¢ 1 

3 1 

: 4 1 

3 5 1 

3 — 1 

: 1 


— — — — eae me 


oo 


ooooooo°oo 

Sssss3? 
MAA 
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4 

4 0 

4 
2 MODIFIED BY: 
5 v03-007 (080006 Christian D0, Saether 2-July-1984 

5 Need to have enhanced privileges for SASSIGN also. 

; v03-006 CDS0005 Christian D. Saether 20-Jun-1984 | 
5 


Raise/lower process biocnt and astcnt around 


Sais to mailbox so that it does not fail for 


i e+ — — — — —— — —— — — — — — ——— — 


17 

SNDBA 16-Sep-1984 01:15:57 VAX-11 Bliss-32 V4.0-742 Page 2 

v04-0 1ergeb 71882 PS 48i28 « DTSKSUmHASTERSCETiX she sNoBAD.B32;1°%" (15, 

; 28 28 } lack of those quotas. | 

; 60 9 1 i V03-005 CDS0004 Christian D. Saether 30-Dec-1983 

: 8 be ! Use L_NORM Linkage and BIND_COMMON macro. 

: 8 1 i v03-004 CDS0003 Chrigtion 0, Dd. — 5-0c t-1983 | 

: 8 Fix bug restoring privs to PCB. | 

: 66 066 v03-003 cps0002 Christian D. Saether 13-Jan-1983 | 

3 3 8 Separately save and restore PHD privs. 

; 69 069 1 / v03-002 ¢DS0001 Christian D. Saether 28-Dec-1982 

3 0 070 1! Give the process DETACH and SETPRV for the CREPRC of 

—— 071 1! the bad block scanner, and BYPASS to assign channel 

3 if zon 1! to bad block scanner mailbox 

3 oe 81 Also use PIC_DESC instead of “DESCRIPTOR. 

: 75 0075 1: v03-001 LMP0037 L. Mark Pilant, 28-Jun-1982 15:10 | 

3 6 8 Remove the addressing mode module switch. 

| 0078 1 i v02-003 LMPO013 L. Mark Pilant, 15-Mar-1981 16:20 | 

; #F 0079 1! Remove unused and unneeded sorage (to fix Linker truncation 

: HY Baas ; } errors). 

: 8 0082 1 | vo2-002 AcG0230 Andrew C. Goldstein, 24-Dec-1981 0:17 | 

; Hi ith : } Go to general mode addressing for externals 

: 85 0085 1 | v02-001 ACG0167 Andrew C. Goldstein, Is Apr-1980 19:28 

; 46 0086 1! Previous revision history moved to F11B.REV 

; 87 0087 1 !** 

J 88 0088 1 

; 89 0089 1 

: 90 0090 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 

3 91 0091 1 REQUIRE ‘'SRC$:FCPDEF.B32'; 
| 
| 
| 


* 
4 


VAX-11 Blis 32 V4.0-74 3 


8 
1e-sep=1984 01:15:5 -742 P 
4 73:40:28 «DT ScSumsmaste :CFTIX.SRCISNDBAD.B32;1 > (2) 


14-Sep-1984 
GLOBAL ROUTINE SEND_BADSCAN (FID) : L_NORM NOVALUE = 
* 


FUNCTIONAL DESCRIPTION: 


* 


SELESRE 8 


This routine sends a message to the bad block analysis program to 
deal with a file that is marked bad. 


woo 


wn— 


CALLING SEQUENCE: 
SEND_BADSCAN (ARG1) | 


; 
; 
; 
; 
; 
; 
5 i 
5 i INPUT PARAMETERS: | 
i , } ARG1: address of file ID of file 
O38 i IMPLICIT INPUTS: | 
: CURRENT_UCB: UCB of device containing file 
1 1 i OUTPUT PARAMETERS: 
' ¢ NONE 
1 i IMPLICIT OUTPUTS: 
' 5 NONE 
1 i ROUTINE VALUE: 
1 8 NONE 
; 
i 
i 
i 


MEUM ⏑ EWN "CO OOVOuUFWwN—O 


10 SIDE EFFECTS: 
i} bad block scan process started 
i on 
14 
15 BEGIN 
i 
1 MAP 
H FID : REF BBLOCK; ! file ID argument 
0 LOCAL 
1 TR : REF BBLOCK, 
$ SAVE_PRIV : VECTOR 34° 
DESCO : VECTOR C2), ! descriptor 
¢ MBX_ CHANNEL RD; ' channel number for mailbox 
— BIND_ COMMON; 
3 EXTERNAL 
CTLS$GL_PCB : ADDRESSING_MODE (GENERAL), 
CTLS$GL_PHD : ADDRESSING_MODE (GENERAL); 


! Assign a channel to the bad block scanner mailbox. Note that we simply 
' give up on errors - the file will be left marked for delete and bad and 


can be picked up and retried later. 


PIC_DESC (*ACPSBADBLOCK_MBX', DESCO); 


. 
* 
7 
. 
a 
om 
~ 
o 
. 
° 
° 
o 
6 
° 
7 
° 
. 
° 
= 
*. 
° 
* 
— 
. 
a 
* 
. 
a 
. 
’ 
7 
o 
. 
° 
J 
— 
. 
e 
. 
a 
° 
— 
I 
° 
. 
« 
7 
e 
7 
° 
+ 
⸗ 
. 
° 
7 
a 
° 
J 
e 
J 
+ 
6 
. 
0 
e 
o 
° 
* 
io 
o 
. 
* 
. 
° 
. 
° 
° 
J 
° 
7 
2 
7 
2 
— 
⸗ 
° 
7 
o 
J 
om 
. 
° 
. 
° 
. 
— 
I 
e 
— 
* 
e 
J 
* 
. 
° 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — SS SY 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — —— 


— — —— — — — — — — — — —— — — —, ———— — — 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — eee 


— 
Oo —0 
——— 


w 


$ep-1984 VAX-11 Bliss-32 V4.0-742 4 SNI 
1$-se0-1984 9}: 3:2 DISKSVMSMAST TERICFIIX.SR RCJSNDBAD.B32; (29 (2) 
3; (3 113 ! We don't need to raise bio, ast counts for the assign, only need detach : 
$ : 132 } for the creprc, but just do it all once for all the cervices that follow. ‘ 
51 114 ; 
: 4 114 = ,CTLSGL_PCB; : 
; 155 1144 2 PTR Peps B10¢NT) = .PTR Pcpsu BIOCNT] +1; : 
‘= % 1145 2 PTR EPCBSWTASTCNT) = .PTR CPCBSW-ASTCNT) + 1: : 
re 1146 _PRIV 9 = (PTR feCe 9_PRIV))j : 
3 (1 8 114 SAVE -PRIV = (PTR [PCBSQ-PRIVI+4);: : 
; 1 114 BBLOCK [ PTR CPCBSQ_PRIVJ, PRVSV_DETACH] = 1; ; 
+ 160 114 BBLOCK £ PTR CPCBSQ"PRIVJ, PRVSV-SETPRV) = 1; : 
; 16) i Ock C PTR CPCBSQ"PRIV], PRVSVIBYPASS) = 1; : 
: 188 11 : PTR = .CTLSGL_PHD; ; 
3 164 11 SAVE_PRIV (2)-= .(PTR [PHD$Q_PRIVMSK]); : 
: 165 1134 SAVE -PRIV . (PTR PHOSO “PRIVMSKI+4); ; 
: 166 1155 2 BBLOTK C{ PTR Fnb$0_PRIV = PRVSV. DETACH = 1; | : 
; LOCK H V x » PRVSV Vv) =1; | : 
16 115 BBLOC PTR (PHD$Q-PRI mS PRVSV~SETPR 1 ; 
; 168 1132 BBLOCK { PTR CPHDSQ"PRIVMSK], PRVS$V_BYPASS) = 1; : 
: 199 P 1159 IF NOT SASSIGN (CHAN = MBX_CHANNEL, 3 
3: 171 1160 DEVNAM = DESCO) . 
: 8 1162 —— | 
> 174 1188 (PTR CPHDSQ_PRIVMSK]) = .SAVE_PRIV (2), : 
; 176 1164 (PTR CPHDSQ-PRIVMSK]+4) = .SAVE_PRIV (3); ; 
eo or 116 -CTLSGL : 
: 178 1169 BTR 5* stocnt’ = “PIR PCB$W_BIOCNT) - 1; : 
: 179 1168 PTR CPCBSWASTCNT) = PCBSu ASTCNT] = 1; : 
3 = ao . 
180 1169 (PTR CPCBSO_PRIV]) “SAV ; 
: 181 1170 (PTR CPCBSQ-PRIVI+4) = ‘SAVE. —X tia: | ; 
: 18¢ 1171 | ; 
eo fal os at 
3 4 | . 
> 185 1174 : 
: 186 1175 ! Send the message. Then attempt to create the bad block scan process. If one : 
3 S already active, the create w ai uve to up icate process names, | ” 
187 117 i is alread n ill fail d dup | ; 
3 is 1178 and the message will simply be queued. : 
: 190 117 pc 
: 191 Pp 1180 IF $010 (CHAN = .MBX_CHANNEL, : 
3 UNC = a LBLK _NOW, : 
19 P 1181 FUNC = 10$_QRITELBLK OR IOSM_NOW ; 
13% P1188 4h gag 
Py = ° 
: 195 P11 BEGIN : 
3 J onstruct the message in the message butter. . 
1 P 1185 1 ¢ h in th buff ; 
: 13s at ; 
: 199 Pp 1188 LOCAL ; 
: 90 p 1189 MESSAGE : BBLOCK CBBSSC_LENGTH]; ! message buffer : 
: 0 P 1191 CHSFILL (0, BBSSC_LENGTH, MESSAGE) : 
: p 119 MESSAGE(BBS$B_ NSGTYPE =‘ G8. SCANBAD; ; 
: P 119 MESSAGE (BBS$W_SEQ 1⸗ 
5 P 119% MESSAG ECBBSSt ucB CURREN : 
: 206 P 1195 CH (FIDS$T_LE NGTH: FID, "AESSAGECBBSSW_ FIDJ); : 


MESSAGE 
iP2 = BBS$C_LENGTH 


vuvuv 


— —2— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


END; 
SDASSGN (CHAN = .MBX_CHANNEL); 


(PTR CPHD$Q_PRIVMSK]) = .SAVE_PRIV [2 
(PTR CPHDSQ_PRIVMSKJ+4) = .SAVE_PRIV 


PTR = .CTLSGL_P 

om PCBSW SB TOCNT! 
pcOsy Ast cut 

CPT R Be a 

(PTR sits f -PRIV +4) 


END; 


1 
i THEN 
1 BEGIN 
14 
16 Desc) VECTOR 
i iss TEN m 
18 PIC_DESC (*SYSSSYSTEM:BADBLOCK.EXE', 
0 PIC-DESC (* TTAI:', DESC1); 
1 PICIDESC (*BADBLOCK_SCAN' , DESC2); 
§ P SCREPRC ( 
4 - IMAGE = DESCO, 
5 P INPUT = DESCT, 
6 r OUTPUT = DESCI, 
P RROR = DESC1, 
8 p PRVADR = UPLIT (=1, -1), 
5 . RCNAM = DESC2, 
P BASPRI = 4, 
P vic = 1416 + 3 
5 


ore 


WPORMIMONNINONUNONY ssssesses 
UN ISSeNoerrewnwOOONe APU mODe XEMX SZ28 
1 


ve 
<> 


= Wot 8 fois. 


Ww 
aw 
— 


42 4D SF 48 43 4F 40 42 44 41 42 24 50 43 


41 00 

42 44 41 42 SA 4D 45 54 HH 59 53 24 23 59 38 6 

00 45 45 2€ 48 43 4F 4C 00 

00 09 3A 31 41 54 54 SE 00 

00 00 4— 41 43 53 SF 48 4F 4C 42 44 41 zz 
FF 


FFFFFFFF 


FFFFFF 


16-Sep-1984 01:15:57 VAX-11 Bliss- 
13-08-1383 33 DISKSVMSMASTER: 


' descriptor 
i descriptor 


DESCO); 


ar 


PCB$W_BIOCNT) - 
ee cag tcuts - 


! end of routine SEND_BADSCAN 


TITLE —86 
- IDENT \V04-000\ 
-PSECT S$CODE$,NOWRT,2 

9 P.AAA -ASCII \ACPSBADBLOCK_MBX\ 

1? P.AAB ASCII \SYSSSYSTEM:BADBLOCK.EXE\<0> 

P.AAC: .ASCII \_TTA1:\<0><0> 
: P.AAD: .ASCII \BADBLOCK_ SCAN\<0><0><0> 
40 P.AAE -LONG -1, =1 


ar 


RCISNDBAD. B32; (39 


5 
* (2) 
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2 
. 21964 01:15:57 VAX-11 Bliss-32 V4.0-742 Page 6 
12-808- 1382 93:43:25 DISKSVMSMASTER:CF11X.SRCJSNDBAD.B32;1 . (2) 
.EXTRN CTLS$GL_PCB, CTLS$GL_PHD 
«EXTRN SYSSASSIGN, SYS$QI0 
“EXTRN SYSS$CREPRC, SYSS$DASSGN 
O1FC 9 .ENTRY SEND_BADSCAN, Save R2,R3,R4,R5,R6,R7,RB : 1082. 
i 000000006 00 3 HOVAB CTLSGL_PCB, RB , : | 
E : C3 9 SUBL2 #48, §P : | 
18 «AE p 1 MOVL #16, DESCO > 1137) 
1C AE é : 14 MOVAB P.AAA, DESCO+4 : 
56 68 00 00018 MOVL TL$GL_PCB, PTR 1143) 
A 86 9018 INCW B(PTRY + 1144. 
8 Ab , jt INCW (PTR) + 1145) 
20 AE 0084 6 0021 mova. 3 ¢(PTR) SAVE PRIV + 1146 
0084 £6 0004020 8F CB 00027 BISL2  #536887328, 132(PTR) + 1150 
6 000000006 00 p 00 9 MOVL  CTLSGL_PHD, PTR : 113¢ 
28 AE 6 7D 000 MOVO = (PTR) SAVE _PRIV«S + 115 
66 200046020 8F C8 00 BISL2 #536887328,~ (PTR) + 1157 
— 7C 0004 CLRO. = (SP) + 1160 
08 AE 9F 00044 PUSHAB MBX_CHANNEL : 
24 AE OF 00047 PUSHAB DESC ; 
000000006 99 04 Fe 004A CALLS #4, SYSSASSIGN ; 
0 0 90051 BLBS = «RO. “1S ; 
0088 31 00054 BRW 3$ : 
7E 7C 00057 1$: CLRQ = =( SP) + 1199 
7E 7C 00059 CLRQ = = (SP) ; 
12 0D 00058 PUSHL #18 : | 
12 00 6E * 2c 9005p movcS #0, (SP), #0, #18, MESSAGE ; | 
18 AE 28 90 00064 MOVB #40, MESSAGE ; | 
1¢ AE B4 00068 CLRW MESSAGE+4 ; | 
20 AE 94 AA b0 00068 MOVL -108(BASE), MESSAGE+8 ; 
24 «AE 04 BC 06 é 00070 MOVC3 #6, aFID, MESSAGE+12 ; 
18 AE 9F 00076 PUSHAB MESSAGE 3 | 
7E 7C 00079 CLRQ 2s = (SP) : 
7E D4 00078 ERL=(SP) : | 
7E 60 8F 9A 0007D MOVZBL #96, -(SP) : 
7E 28 AE 3C 00081 MOVZWL MBX_CHANNEL, (SP) ; 
1E DD 00085 PUSHL @# ; 
000000006 00 Q FB 90087 CALLS #12, SYS$QI0 ; 
18 AE 17 DO 00091 MOVL #23, DESCO : 1208 
1c AE 10 A? 9 0095 MOVAB P.AAB, DESCO+4 ; 
10 AE 0 p 009A MOVL #6, D : 1209. 
16 AE 28 OA : 009 MOVAB P.AAC, DESC1+4 : 
08 AE 0D D0 000A MOVL #13, DESC2 : 1210 
OC AE 30 =A H: OA MOVAB P.AAD, DESC2+4 ; 
7E 7C OOOAC CLRQ. = = (SP) + 1221 
7E D4 OOOAE CLRL =s_ = (SP) ; 
00010003 8F DD 00080 PUSHL #65539 : 
4 bb 086 PUSHL #4 : 
1c «(AE OOF PUSHAB DESC2 ; 
7 p4 088 CLRL = = (SP) F | 
40 A? 9F 000B PUSHAB PAA ; | 
AE 9F 000C PUSHAB DESC : 
4 AE OF t PUSHAB DESC ; 
8 AE 9F 000C6 PUSHAB DESC ; | 


1 -1984 15:57 X-11 Bliss-32 V4.0-742 
1 p71 3be 93: :48 bts —A STER:CF11X.SRCISNDBAD.B32; fa9 (2) | 
44 AE OF 00009 PUSHAB  DESCO ; | 
7E 04 000C CLR Ne ; 
NNR: | ee fe ‘ 2$ nov 349— Cents?) : 1225. 
000000006 f 6 00008 CALLS He “SYSSDA : | 
28 OA OF 3$: MOvG AVE ysspass : Or oTR) + 1227 
68 D E MOVL ait GL_PCB, PT 3: 1230 
A A B EG DECW B(PTRY +1 31 
‘ A6 87 ODE DECW 6(PTR) :1 é 
0084 C6 AE 7D oe MOVO  SAVE_PRIV, 132(PTR) + 123 
04 OOOF RET : 1236 
; Routine Size: 2435 bytes, Routine Base: S$CODE$S + 0048 
; PSECT SUMMARY 
3 Name Bytes Attributes 
i SCODES 315 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


| 
Tia pps 


JJJ a — Symbols — Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 38 0 1000 00:01.9 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:SNDBAD/OBJ=0BJ$:SNDBAD MSRC$:SNDBAD/UPDATE=(ENHS: SNDBAD) 


3; Size: 243 6°96. + 72 data bytes 
3; Run 5 ee 8 

3 th): Time: 

: nes/CPU Mir: 

3 Lenenes/CPU-Rin: 5 81 
3 I Used: 248 pages 
5 —— ation Complete 
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; COMMAND QUALIFIERS 
| 
| 
| 
| 


P 


“ ENT CORPORATION 
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